' Get an account to submit the order for.
Dim oAccount As Account = moAccounts(0)
' Get a market to submit the order in.
Dim oMarket As Market = moFilter(0)
' Get the order submission object for our account and market.
Dim oSub As OrderList.Submission = oAccount.SubmitOrders(oMarket)
' Add the order to the list, specifying the user.
Dim oOrder As Order = oSub.Add(BuySell.Buy, _
PriceType.Market, TimeType.Normal, 1, 0, _
0, OpenClose.Undefined, "", 0, ActivationType.Immediate, "", _
0, Nothing, Nothing, True, moUser2, True)
' Submit the list of orders.
oSub.Submit()